home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / eText5 / Source / Kludges.subproj / ENXCP.psw < prev    next >
Encoding:
Text File  |  1993-03-29  |  608 b   |  35 lines
  1.  
  2. defineps PSWfindownedwindow(float x; float y;
  3.     | float *xp; float *yp; unsigned int *window)
  4.     x y Above 0 findwindow
  5.     {
  6.         dup currentowner currentcontext eq
  7.     {
  8.         window yp xp
  9.     }{
  10.         pop pop pop
  11.         0 window
  12.     } ifelse
  13.     }{
  14.         pop pop pop
  15.     0 window
  16.     } ifelse
  17. endps
  18.  
  19. defineps PSWfindownedwindowBelow(float x; float y; unsigned int theWin
  20.     | float *xp; float *yp; unsigned int *window)
  21.     x y Below theWin findwindow
  22.     {
  23.         dup currentowner currentcontext eq
  24.     {
  25.         window yp xp
  26.     }{
  27.         pop pop pop
  28.         0 window
  29.     } ifelse
  30.     }{
  31.         pop pop pop
  32.     0 window
  33.     } ifelse
  34. endps
  35.